unit Imp_PlaInfCepQ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  jpeg, Qrctrls, QuickRpt, ExtCtrls;

type
  TFrmImp_PlaInfCepQ = class(TForm)
    QuickRep1: TQuickRep;
    PageHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    ChildBand1: TQRChildBand;
    QRImage4: TQRImage;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRImage1: TQRImage;
    QRImage2: TQRImage;
    QRImage3: TQRImage;
    QRImage5: TQRImage;
    QRImage6: TQRImage;
    QRBand1: TQRBand;
    QRImage13: TQRImage;
    QRImage14: TQRImage;
    QRImage15: TQRImage;
    QRImage16: TQRImage;
    QRImage17: TQRImage;
    QRImage18: TQRImage;
    QRImage7: TQRImage;
    QRLabel13: TQRLabel;
    QRImage8: TQRImage;
    PageFooterBand1: TQRBand;
    l_causa1: TQRLabel;
    l_causa2: TQRLabel;
    l_causa3: TQRLabel;
    l_causa4: TQRLabel;
    l_causa5: TQRLabel;
    l_causa6: TQRLabel;
    l_causa7: TQRLabel;
    l_causa8: TQRLabel;
    l_causa9: TQRLabel;
    l_causa10: TQRLabel;
    l_causa11: TQRLabel;
    l_causa12: TQRLabel;
    QRImage9: TQRImage;
    QRImage10: TQRImage;
    QRImage11: TQRImage;
    QRImage12: TQRImage;
    QRImage19: TQRImage;
    QRImage20: TQRImage;
    QRImage21: TQRImage;
    ChildBand2: TQRChildBand;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
    procedure QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmImp_PlaInfCepQ: TFrmImp_PlaInfCepQ;
  xplan_qtde       : integer;

implementation

{$R *.DFM}

procedure TFrmImp_PlaInfCepQ.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
 tag:= 0;
end;

procedure TFrmImp_PlaInfCepQ.QuickRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
 tag     := tag+1;
 MoreData:= tag<(xplan_qtde);
end;

end.

